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VAN DE REDACTIE 


Dat het er weer eens van moest komen, slechts 3 nummers A-N 
in een jaargang, dat was duidelijk. en dat gebeurt dan dit 
jaar ‚ of nog minder 7?. 


Hoe dan ook , bemoedigend is het feit dat ook anderen weer de 
pen ter hand genomen hebben ; Kees , bedankt . 


Misschien ‚ dat Computerclub op WDR/ZDF ook voor ons een 
aanzet geeft tot meer activiteit: opvallend is dat men daar 
weer aan de gang gaat met soldeerbout en programmeren. 

En daarvoor is de Atom nu eenmaal bij uitstek geschikt. 


Namens de redactie 
RAruno Tossaint. 
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DATUM : 19 OCTOBER 1996 ‚van ca. 10.00 tot ca.17.00 u. 
PLAATS : PAROCHIECENTRUM Melkweg 5,DE BILT. 


Op de A27 de afslag Utrecht-Oost,maar let vooral op de kleine witte 
aanduiding =VEEMARKT=, de Biltse Rading afrijden tot de splitsing 
Groenekan/Bilthoven ‚hier r.a. „20 meter verder l.a. 

Voor busreizigers : Vanaf Utrecht CS lijn 57,stopt op de Melkweg 


Het Bestuur van de Federatie. 
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Misschien denken jullie na dit verhaaltje dat ik misschien 
nooit tevreden ben, maar het verhaal met het plaatsbepalen 
m.b.v. een potmeter beviel ook niet zo. Nog even voor het 
geheugen te verfrissen: Ik ben (nog steeds...) bezig met een 
voorversterker. Hierin zit een 6502 besturingsprint, die ook 
het volume regelt. Vroeger gebeurde dit met een gewone alps, 
aangestuurd m.b.v. een stappenmotor. 


Nu was ik ooit het geratel beu, dus een motorpot. Het probleem 
was nu de plaatsbepaling. Dus een tweede potmeter op de as, 
een referentiespanning en een adc en voilà, uitlezen die waar- 
de. Toch was dit ook nu niet je van het, afregelen, verlopen 
en het verkrijgen van een goede monopotmeter met de afmetingen 
van een alps is lastig. Tijdens een cursus in düsseldorf ben 
ik maar eens in de conradwinkel gaan kijken en zie daar: een 
optische plaatsbepaler en een mooi wieltje met spleetjes voor 
op de as. 


Uit de optische plaatsbepaler komen een tweetal signalen, 
namelijk puls en richting, handig toch? Nou nee, tijdens het 
testen gaf het ding de geest, maar dat wieltje had ik nog! 


Dus een gewone lichtsluis gepakt en die verbonden met een 
schmitt-trigger en daar is de klokpuls weer. De richting heb 
ik niet nodig, die weet het programma wel. De klok verbonden 
met CB1 van de via en klaar. Kan de adc en de twee referentie- 
bronnen worden vervangen door een draadbrug op de regelprint. 


Door de pulsen op CB1 worden interrupts opgewekt, zie hier de 
interrupt routine 


PHA * save accu 
LDA #410000000 
BIT POORT_B * check bit motorcontrol & 


* 


dummy read to clear flag 


BNE GOES _L * jump als motor linksom draait 
GOES_R INC COUNTER 

PLA * restore accu 

RTI * end irg routine 
GOES_L DEC COUNTER 

PLA * restore accu 

RTI * end irg routine 


Dus naar gelang links of rechtsom wordt COUNTER verhoogd of 
verlaagd met iedere puls van een lichtspleet. 


Vervolgens als voorbeeld de routine om het volume weer op een 
voorkeurwaarde te krijgen. 
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ROUTINE PRESET 


PRESET JSR LOS * wacht tot toets is losgelaten 

LDA COUNTER * lees huidige waarde 

CMP PRE_SET t* vergelijk met voorkeuze 

BEQ END_PRE tf stop als ze gelijk zijn 

BCS DO_PRE * volume down als carry geset is 
UP_PRE LDY #F_VOL 

LDX #L_ VOL * plaats tekst "volume" 

LDA #H_VOL 

JSR DISPLAY 

LDY #F_UP 

LDX #L_UP * plaats tekst "up" 

LDA #R_UP 

JSR DISPLAY 


Hieronder het belangrijkste van dit verhaal: de trigger van 
CB1 wordt aangepast aan het draaien: Als de potmeter rechtsom 
draait een positive edge en bij linksom een negatieve. Logisch 
als je er even over nadenkt: Bij rechtsom wordt een plaats 
bijvoorbeeld bepaald door de overgang van donker naar jicht. 
Bij linksom wordt die zelfde plaats bepaald door licht naar 
donker ! 


LDA HANDSH 
ORA #%00010000 * positive edge on CB1 
STA HANDSH 
LDA #£10010000 * enable interrupt from CB1 
STA IENAREG 
JSR RECHTS 
JSR MO_ON * motor rechts om 
JMP LUS_PRE 
DO_PRE LDY #F_VOL 
LDX #L_VOL * plaats tekst "volume" 
LDA #H_VOL 
JSR DISPLAY 
LDY #F_DOWN 
LDX #L_ DOWN * plaats tekst "down" 
LDA #H_DOWN 
JSR DISPLAY 
LDA HANDSH 
AND #E11101111 * negative edge on CB1 
STA HANDSH 
LDA #$10010000 * enable interrupt from CBI 
STA IENAREG 
JSR LINKS 


JSR MO ON * motor links om 
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LUS_PRE LDA POORT_A * dummy read 
LDA COUNTER * lees counterwaarde 
STA $400 
CMP PRE_SET * vergelijk met voorkeuze 
BEQ END_PRE *_ stop als ze gelijk zijn 
LDA FLAG 
LSR A 
LSR A 
BCS STOP_PR * stop als er een toets is gedrukt 
JMP LUS_PRE 
STOP_PR LDA POORT_B * lees code 
AND #CODE 
CMP #C_PLAY * kijk of code play 
BNE LUS_PRE * blijf meten als toets is niet play 
JMP END_PRE 
END_PRE JSR MO_OFF * motor uit 
JSR PAUZE 
LDA #%00010000 * disable interrupt Erom CB1 
STA IENAREG 
LDY #F_VOL 
LDX #L_SPIl * verwijder "volume" en "up"/"down" 
LDA #H_SP11 
JSR DISPLAY 
RTS 


De plaatsbepaling werkt met deze opzet perfect: Ook na vele 
malen omhoog/omlaag en naar de preset lopen is de waarde 0 als 
de potmeter dicht staat (let wel, de waarde wordt dus bepaald 
met tellen). Natuurlijk zijn ook de gewone volume up/down 
routines aangepast en er is ook weer een calibratieroutine 
(voor de eerste power-up); zet counter op FF en draai net zo 
lang dicht tot de waarde niet meer verandert dan counter = 0 
en klaar. 


Nu de plaatsbepaling klaar is kan ik verder werken aan het 
audiogedeelte en de optische sensor op dezelfde print zetten. 
Door chronisch tijdgebrek is dit ondertussen een meerjarenplan 
geworden en nieuwe ontwikkelingen op het besturingsvlak van de 
voorversterker zullen er (hopelijk) niet meer komen. 


Guido Baltus 

Lünenschloszstraat 8 

6137 PJ Sittard 

046-4521035 of 0654 632788 (jawel, wij werken bij flippertel) 
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Inleiding : 

Hallo, medeatomisten, het is weer lang geleden dat ik de ‘pen’ 
(lees computer} ter hand genomen heb, niet waar!! Tja, druk bezig 
geweest met verhuizen en zo, dat kost veel tijd. Maar nu alles 
weer een beetje op orde is krijg je wat meer tijd voor je 
hobby's. 

Zodoende heb ik dus maar weer eens (voor de zoveelste keer) het 
stof van mijn oude vertrouwde Atompie geblazen en getest of alles 
nog werkte. En waarachtig het werkte nog !!! 

Het volgende probleem was toen het weer omschakelen naar Atom 
basic en assembler, maar dat ging vrij soepel. Na wat piepjes en 
errors ging het weer vrij aardig, dus aan de slag met 
programmeren. 

Omdat ik vrij veel grafisch bezig ben liep ik iedere keer weer 
tegen een probleem aan, nl. het software-matig scrollen in CLEAR4 
gaat zooo langzaam dat ik daar iets aan wilde doen. 
Afijn, de grijze hersencellen maar weer eens aan het werk gezet 
en al snel werd het idee geboren. 


Het idee : 

Wat is scrollen?? Het is eigenlijk niets anders dan een rij 
omhoog of omlaag schuiven. Dit kan softwarematig maar dan moet 
er voor elke rij die moet scrollen, 6 kB aan data worden 
verschoven en dat kost tijd voor ons 1 of zelfs 2 mHz Atompie. 
Bij de Atom ligt in CLEAR4 adres #8000 linksboven en daaronder 
adres #8020. Dus het idee was om nu niet adres #8000 maar adres 
#8020 linksboven te krijgen. Hoe krijg je dit voor elkaar?? 

De methode die ik gebruikt heb is het voor de gek houden van de 
Videoprocessor (de 6847) oftewel het rommelen met de adreslijnen. 
Het volgende gebeurt er namelijk : 

de videoprocessor doet niets anders dan adres #8000 t/m #97FP 
uitlezen en omvormen tot een videosignaal. Wanneer we er dus voor 
zorgen dat als de videoprocessor om adres #8000 vraagt, de data 
uitleest van adres #8020 enz. dan lijkt het of het scherm 1 rij 
omhoog geschoven is. De nadruk ligt op lijkt, want met de data 
zelf is niets gebeurt. 

En zo komen we vanzelf op het volgende punt, hoe moet dit worden 
uitgevoerd?? 


De uitvoering : 

Even een stukje theorie. Als eerste gaan we bekijken welke 
adreslijnen we nodig hebben om te scrollen. 

Daarvoor zetten we de beginadressen van de rijen in een tabel, 
dus van #8000 t/m #97E0 în stappen van #20. 

Als we goed naar de tabel kijken dan blijkt dat alleen de 
adreslijnen A5-12 gebruikt worden om de rijen te kunnen 
adresseren. De adreslijnen A0-4 worden gebruikt om de kolommen 
te kunnen adresseren, dus van #8000 t/m #801F en van #8020 t/m 
#803F, enz. Om vertikaal te kunnen scrollen doen we dus niets met 
deze adreslijnen (even in het achterhoofd houden, hierop kom ík 
later terug! !!). 

In onderstaande tabel zijn de adressen en gebruikte adreslijnen 
uitgezet van #8000 t/m #9FEO. 
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Er worden dus 8 adreslijnen gebruikt om het gehele grafische 
scherm van de Atom te kunnen adresseren, en verder want met 8 
adreslijnen kun je van #8000 t/m #9FFF adresseren. 


Er zijn ín het totaal dus 256 rijen die gescrolled kunnen worden. 
om elke rij op elke positie op het scherm te kunnen krijgen 
hebben we dus 256 x 256 = 65536 mogelijkheden. Dat komt mooi uit, 
dat kunnen we dus realiseren met een 64 kB eprom. 

We nemen A5-12 van de videoprocessor en sluiten deze aan op A0-7 
van de eprom. Dan nemen we een outputpoort bv. PBO-7 van de VIA 
6522 en sluiten de datalijnen DO-7 aan op A8-15 van de eprom. De 
datalijnen DO-7 van de eprom sluiten we aan op de videoram van 
de Atom, 

De eprom plaatsen we dus tussen de videoprocessor en de videoram. 
Dit is zo klaar als een klontje, niet waar!! Oke, ik leg het 
klontje hieronder nog even uit. 


De werking : 

De bedoeling is dat wanneer we #00 op PBO-7 zetten en de 
videoprocessor vraagt om #8000 dat hij dan ook de data krijgt van 
#8000. 

Wanneer we #01 op PBO-7 zetten en de videoprocessor vraagt om 
#8000 dat hij dan de data krijgt van #8020. We kunnen dus zelf 
bepalen welke regel bovenaan komt te staan d.m.v. een waarde op 
PB0-7 te zetten, en wel als volgt : 


Regel O0 bovenaan = Adres #8000 — #801F PBO-7 waarde #00 


ä 


Regel 1 bovenaan = Adres #8020 - #803F = PB0-7 waarde #01 
Regel 2 bovenaan = Adres #8040 — #805F = PBO-7 waarde #02 
Regel 3 bovenaan = Adres #8060 - #807F = PBO-7 waarde #03 
Regel 4 bovenaan = Adres #8080 — #809F = PBO-7 waarde #04 
Regel 5 bovenaan = Adres #80A0 - #80BF = PB0-7 waarde #05 
Regel 6 bovenaan = Adres #80C0 - #80EF = PB0-7 waarde #06 


Regel 255 bovenaan = Adres #9FEO — #SFFF = PB0-7 waarde #FF 
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De eprom werkt dus als adres-omvormer. De videoprocessor vraagt 
een adres A5-12 (dit is de helft van een adres op de eprom). De 
andere helft wordt door PB0-7 toegevoegd en op de datalijnen komt 
het nieuwe adres (A5-12) te staan. Simpel toch!! 


Kijk zelf maar in onderstaande tabel wat er gebeurt en welke data 
er in de eprom moet staan. 


12 { Eprom | Eprom 
adres | data adres 
#8000 


| _#oo | 
#s020 | 
| 


® 

Ís] 

la} 

13 

B 
| 





De truuk z 

Zo, nu kom ik even terug op het stukje van de adreslijnen AO t/m 
A4 waar we niets mee deden. Zonde toch nietwaar. Ik heb dezelfde 
truuk namelijk toegepast om horizontaal te scrollen, oftewel de 
kolommen te verschuiven, nl. het voor de gek houden van de 
videoprocessor. De videoprocessor vraagt om #8000 maar krijgt de 
data van #8001, enz. 

We moeten nu dus rommelen in het adresgebied #XX00 t/m #XX1F, met 
andere woorden met AO t/m A4. 

Om een lang verhaal kort te maken, hier hebben we dus 32 Xx 32 = 
1024 mogelijkheden. Het kan dus met een 1 kB eprom gerealiseerd 
worden. Je sluit A0-4 van de videoprocessor aan op A0-4 van de 
eprom. Daarna sluit je PAO-4 aan op A5-9 van de eprom. Als 
laatste sluit je D0-7 van de eprom aan op A0-4 van de videoram. 
We kunnen dus zelf bepalen welke kolom linksboven komt te staan 
d.m.v. een waarde op PA0-4 te zetten, en wel als volgt : 


Adres #8000 
Adres #8020 


PA0-4 waarde #00 
PAO-4 waarde #01 
Adres #8040 = PAO-4 waarde #02 
Adres #8060 PAO0-4 waarde #03 


Kolom 34 linksboven Adres #9FEO0 PAO0-4 waarde #1F 


Kolom O linksboven 
Kolom 1 linksboven 
Kolom 2 linksboven 
Kolom 3 linksboven 


Un 


Utd u 


Ei 
ij 
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Videoprocessor 


Videoram 
adres 


adres 





#8000 


#8000 














De praktijk : 


Ik heb bovenstaand verhaal 


nog eens duidelijk gemaakt d.m.v. een 
plaatje. 





VIDEOPROCESSOR 


AAAAAA 
234567 
1 Kb EPROM 


DDD 
012 





AAAAA 


ota234 





HE 
<o 


VIDEORAM 





I.p.v. een 1 kB eprom heb ik een 2 kB eprom genomen omdat ik die 
nog een had liggen. Dit maakt voor het verhaal verder niets uit 
want AlO leg je dan aan de OV. 
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Ik heb een stukje experimenteerbord gepakt en hierop 2 rijen 
pennen gesoldeerd die in het voetje van de videoprocessor komen. 
Op het bordje heb ik 3 voetjes gesoldeerd, 1 voor de 
videoprocessor, 1 voor de 2 kB eprom (2716) en 1 voor de 64 kB 
eprom (27512). Verder heb ik : 


voor het horizontaal scrollen ; 
AO- 4 uit het videoprocessorvoetje aan DO- 4 van de 2716 


AO- 4 van de videoprocessor aan ÂO- 4 van de 2716 
PAO- 4 van de VIA aan A5- 9 van de 2716 

ov aan E-Niet van de 2716 
PHI-2 aan OE-Niet van de 2716 


voor het vertikaal scrollen : 
A5-12 uit het videoprocessorvoetje aan DO= 7 van de 27512 


A5-12 van de videoprocessor aan AO- 7 van de 27512 
PAO-7 van de VIA aan A8-15 van de 27512 
de rest van de niet gebruikte pennen : 

videoprocessorvoet je aan de videoprocessor 
aangesloten. 


Het grote moment : 

Werkt het??2?? Ennnnnnnnnnn Nee,.... Er verscheen alles op het 
scherm maar niet het bekende Acorn Atom scherm. Na wat controles 
uitgevoerd te hebben, even diep nagedacht te hebben en 6 bakken 
koffie later had ik het gevonden. In eerste instantie had ík de 
OE-Niet van de Eproms aan de OV gehangen. Maar er mag alleen met 
de adreslijnen gerommeld worden als de processor niet schrijft. 
Fout je bedankt. 

Dit is in dit geval vrij eenvoudig want als PHI-2 laag is 
schrijft de processor niet, de eproms worden geselecteerd door 
een Niet signaal dus PHI-2 moest aan de OE-Niet van de eproms. 
Toen werkte alles naar behoren. 


De software : 

Na op BREAK gedrukt te hebben verschijnt er bovenaan het scherm 
een rij met rare tekens en de cursor staat 1 kolom verder. Dit 
kont doordat de Atom bij een BREAK de VIA op input schakelt en 
staat er zowel op de PA- als de PB-poort #FF. 

Het enigste wat we moeten programmeren is de PA- (?#B803=#FF) en 
de PB-poort (?#B802=#FF) op output en ziedaar het oude vertrouwde 
Acorn Atom scherm is er weer, 

We kunnen nu vertikaal scrollen met het volgende regeltje : 


FOR I=0 to 256;WAIT;?#B800=I;NEXT 


Het WAIT-statement staat erin om een vloeiende scroll te krijgen. 
Om horizontaal te scrollen typen we het volgende regeltje in : 


FOR I=0 TO 32;WAIT:?#B801=I;NEXT 


Het scherm scrolled nu per byte, om het vertikaal scrollen 
evensnel te krijgen moet er staan FOR I=0 to 256 STEP 8;enz. 
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En verder : 

Nu wil ik i.p.v. de VIA, 2 adressen uitdecoderen zodat ik het 
scrollen kan gebruiken door naar deze adressen te schrijven er 
de VIA weer vrij komt voor andere toepassingen. 


De IC's : 

Hieronder volgen nog de pennummers van de gebruikte IC’s : 
2716 : 

1 = A7 11 = D2 21 - Vpp 
2 - A6 12 = OV 22 — A9 
3 = A5 13 - D3 23 — A8 
4 — A4 14 - D4 24 — +5V 
5 — A3 15 = D5 

6 =— A2 16 — D6 

7 — Al 17 - D7 

8 — AO 18 - E-Niet 

9 — DO 19 =— A10 

10 = D1 20 — OE-Niet 

27512 : 

1 = A15 11 = DO 21 — A10 
2 = Al2 12 - DA 22 — OE-Niet/Vpp 
3 = A7 13 = D2 23 — All 
4 — A6 14 = OV 24 — A9 
5 = A5 15 — D3 25 — A8 
6 — A4 16 = D4 26 — Al3 
7 = A3 17 - D5 27 — Al4 
8 — A2 18 — D6 28 — +5V 
9 — Al 19 = D7 

10 = A0 20 - OE-Niet 


Goed, tot zover dit verhaal. Tot schrijvens....... 


Groet jes 
Kees van Oss 
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Bepaling Paasdag 


Naar aanleiding van een lezersbrief in Het Belang van Limburg ben ik eens gaan uitzoeken 
wat de Winkler Prins daarover te vertellen had. Met behulp van de bijhorende omschrijving heb 
ik maar eens geprobeerd om het eens met de ATOM te berekenen. 

Het bepalen van Paasdag gebeurt volgens de regels van een zekere Dionysius Exiguus al 
van vóór het begin van de huidige Gregoriaanse kalender. De wiskundige C.F. Gaus heeft in 
het jaar 1800 een formule opgesteld waarmee de paasdatum precies kon berekend worden. 


Hij ging als volgt te werk : 


a) het betreffende jaartal J wordt gedeeld door 19, de rest van de deling wordt dan A 
b) vervolgens wordt J door 4 gedeeld; rest B 

c) dan deelt men J door 7; rest C 

d) hierna deelt men 19*A+M door 30 en noemt de rest D 

e) nu deelt men 2*B+4*C+6*D+N door 7 en noemt de rest E 


Om nu de waarde van M en N te kennen doen we het volgende : 
Voor de jaren 1582 tot en met 1699 geldt voor M=22 en N=2 
Voor de jaren 1700 tot en met 1799 is M=23 en N=3 
Voor de jaren 1800 tot en met 1899 is M=23 en N=4 
Voor de jaren 1900 tot en met 2099 is M=24 en N=5 
Voor de jaren 2100 tot en met 2199 is M=24 en N=6 


De eerste paasdag valt dan op (22+D+E) in de maand maart ofwel op (D+E-9) aprit. 
Valt pasen dan op 26 april, dan neemt men in de plaats 19 april. 

Valt pasen op 25 april dan wordt 18 april genomen ais dan ook nog D=28 en A>10. 
Dit laatste was het geval in 1981 en de volgende keer zal dat 18 april 2049 zijn. 
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10 DEFINT A-Z: DIM M$(3): CLS : PRINT "BEREKENING VAN PASEN, HEMEL- 
VAARTSDAG EN PINKSTEREN": PRINT "VOOR EEN WILLEKEURIG AANTAL 
JAREN TUSSEN 1582 EN 2199": PRINT 

20 M5(0) = "MAART": M$(1) = "APRIL": MS(2) = "MEI": M$(3) = "JUNI": K$ = " JAAR 
PAASDATUM HEMELVAART PINKSTEREN" 

30 INPUT "OP BEELDSCHERM OF AFDRUKKEN B/A", A$ 

35 IF AS = "a" THEN A$ = "A" 

36 IF A$ = “b" THEN AS = "B" 

40 INPUT "BĲ WELK JAAR BEGINNEN"; JB: INPUT "BĲ WELK JAAR EINDIGEN"; JE 
50 IF A$ = "A" THEN LPRINT : LPRINT KS: LPRINT ELSE PRINT : PRINT KS: PRINT 
60 FOR J =JB TO JE: IF J < 1582 THEN PRINT "DIT PROGRAMMA WERKT ALLEEN 
VOOR JAARTALLEN NA 1582“: GOTO 40 

70 IF J < 1700 THEN M = 22: N =2 ELSE IF J < 1800 THEN M = 23: N= 3 ELSE IF J < 
1900 THEN M = 23: N = 4 ELSE IF J < 2100 THEN M = 24: N = 5 ELSE IF J < 2200 
THENM=24:.N=6 

75 IF J > 2200 THEN J = JE: PRINT “DIT PROGRAMMA WERKT ALLEEN VOOR 
JAARTALLEN EERDER DAN 2200": GOTO 40 

BO A=J-19* INT(J/ 19): B=J-4* INT(J/4): C=J-7* INT(J/7) 
OD=19*A+M-30*INT((19*A+M)/30:E=2*B+4*C+6*D+iN-7* 
INT(2*B+4*C+6*D+N)/7) 

100 P=22+D+E: IF P <32 THEN MP =0 ELSE P =D +E - 9: MP = |: IF P = 26 THEN 
P = 19 ELSE IF P = 25 AND D = 28 AND A > 10 THEN P = 18 

10 IF MP = 0 THEN IF P = 22 THEN MH = 1: H= 30: GOTO 130 ELSE MH =2: H =P - 
22: GOTO 130 

120 IF P < 23 THEN MH =2: H=P +9 ELSE MH =3: H=P - 22 

130 IF MH = 1 THEN MX = 2; X = 10: GOTO 160 

140 IF MH = 2 THEN IF H < 22 THEN MX = 2: X =H + 10: GOTO 160 ELSE MX = 3: X 
=H -21: GOTO 160 

150 MX =3: X=H +10 

160 IF A$ = "B" THEN PRINT 5, : D =P: M = MP: GOSUB 190: D = H: M = MH: GOSUB 
190: D= X: M= MX: GOSUB 190: PRINT : GOTO 175 

170 LPRINT J, : D =P: M = MP: GOSUB 190: D = H: M= MH: GOSUB 190: D= X: M= 
MX: GOSUB 190: LPRINT 

175 NEXT J: PRINT : PRINT : PRINT "* VOLTOOID *”: PRINT : PRINT “Nog een 
berekening J/N 2” 

180 IS =— INKEYS: IF I$ = "* THEN 180 ELSE IF I$ <> "j" AND I$ < "J" THEN END 
ELSE CLS : GOTO 30 

190S=4: IFM =2 THEN S=S+2ELSEIF M=3 THEN S =S +1 

200 IF D < 10 THEN S=S +1 

210 IF A$ ="A" THEN LPRINT STRINGS(S, 32), D; M$(M); : RETURN ELSE PRINT 
STRINGS(S, 32); D, MS(M); : RETURN 

220 REM * COPYRIGHT 1982 WINKLER PRINS REDACTIE 


10 

20 

30 

40 
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60 

70 

80 

90 
100 
110 
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140 
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160 
170 
180 
190 
200 
210 
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230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
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340 
350 
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370 
380 
390 
400 
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REM PAASDAG 

REM BEWERKT VOOR ATOM VAN ARTIKEL UIT WINKLER PRINS 1982 
1#BO=#O5FFE320; !#84-#608A 

@=12;DIM AA(3) 

F.0=0 TO 3;DIM F(6);AA(O)=FiN. 

$AA(O)="" MAART";$AA(1)="" APRIL";S$AA(2)=!" MEI "';$AA(3)=!" JUNI " 
P.$12"BEREKENING VAN PASEN, HEMELVAARTSDAG EN PINKSTEREN" 
P.'VOOR EEN WILLEKEURIG AANTAL JAREN TUSSEN 1582 EN 2200 ":’ 
P."OP BEELDSCHERM OF AFDRUKKEN OP PRINTER B/A " 

DO LI.#80;U.?#8A=65 OR ?#8A=66 

IN.'"MET WELK JAAR BEGINNEN "V 

IN. "MET WELK JAAR EINDIGEN "'W 

IF W<1583 OR W>2199 OR V<1583 OR W<V;P.'""OPNIEUW "’";G.310 


IF ?#8A=65;P.$2 

Pp." JAAR PAASDATUM HEMELVAART PINKSTEREN'': 
F.J=V TO W 

IF J<2200;M=24;N=6;IF J<2100;M=24;N=5; IF J<1900;M=23;N=4 

IF J<1800;M=23;N=3; IF J<1700;M=22;N=2 

A=J319 

B=J34 

C=J37 

D=(19*A+M)$30 


E=(2*B+4XC+6*D+4N) 37 

P=22+D+E 

IF P<32 THEN Q=0 

IF P>31 THEN P=Dt+E-9;Q=1;IF P=26;P=19 
IF P=25 AND D=28 AND A>10;P=18 

IF Q=0;IF P=22;R=1;H=30;G. 320 

IF Q=0;R=2;H=P-22;G. 320 

IF P<23;R=2;H=P+9;G. 320 

R=3;H=P-22 

IF R=1;T=2;X=10;G. 360 

IF R=2;IF H<22;T=2;X=H+10;G. 360 

IF H>21;T=3;X=H-21;G. 360 

T=3;X=H+10 
P.J,P,$AA(Q),H,S$AA(R),X, SAA(T)’ 

NEXT J;P.$3''''* VOLTOOID *''';P.!"NOG EEN KEER J/N " 
DO LI.#80;U.?#8A-74 OR ?#8A=78 

IF ?#8A=74;G.70 

@=8;P.!!:END 
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Atomic Tips 


redactie: Roland Leurs 
Via Fidonet kwumen onderstaande tips binnen: 


Een leuke bijkomstigheid voor de 4Dos gebruikers: 

De met cotordir aangegeven extenties worden gewoon gehandhaafd bij het “DIR 
statement van de Atom-in-PC. Zo kan je met een kleine aanpassing ook je in de 
directory aanwezige atom files een kleurje meegeven. 


De atomkaart is getest in een 230 Mhz Pentium Pro en hij werkt gewoon zoals altijd. 
Alleen moet je de bussnelheid van de ISA bus niet hoger dan 11 Mhz zetten, want dan 
kom je echt in timing problemen. 


Atomic Problems 


Uok kwamen deze twee problemen van Peter Wokke binnen: 


Als er in een directory cen 0 byte's file staan (een lege dus) dan maakt de atom er een 
toch iet wat vreemd getal van, 4294967280 dat is toch ietje meer { sorry, een min teken 
minder dus) als 0 bytes. Na wat nader onderzoek Is het getal dus FFFFFFFO 
hexadecimaal. dus ergens gaat het niet goed. 


Klopt. Met “INFO laat de Atom de lengte van het bestand zien. Maar omdat een 
Atomfîle altijd een header heeft van 16 bytes. trekt “INFO van de werkelijke file lengte 
altijd 16 af: Boven- staand probleem kom je dus tegen voor alle bestanden kleiner dan 
16 bytes. 


Als je met *PC terug naar je pc gaat, dan wordt niet helemaal de goede mode aangezet, 
vanuitgaande dat het een VGA scherm is. Inplaats van het bitje van het attribuut byte, 
wat het knipperen van de tekst aanzet, wordt de highlighting aangezet. 


ik heb er nog nooit last van gehad en ik heb het nog nooit gezien. Maar het scherm 
wordt gewist met INT1OH, AX=UVO2H. Deze mode is echter gedefinieerd als "25*30 
tekens tekst zwart-wit (CGA kaart)” -uit PU Intern 4-. Jij hebt waarschijnlijk een van de 
weinige kaarten die zich daar echt aan houdt, uungezien de rest allen toch naar een 
kleurenmode schakelen. Terecht een bug in de Atom (dat stamt nog uit de tijd dat ik een 
Hercules/CGA kaart in mijn XT had zitten) die in een volgende versie van Atom.com 
verwijderd zal zijn. Tegenwoordig, na goede verkaop van Atomkaarten, ben ik rijk en 
heb ik dus een grote 456 met SVGA kleuren :-) 


Roland Leurs. Fidonet 2:285/226.9, Aconet 77:8SUWS04.32 
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GROTE LETTERS 


door Roland Leurs 


In dit artikel wil ik even verder gaan op de problematiek van de grote letters 
voor de Atom. Zoals Bruno in het vorige nummer al beschreef is daar behoefte 
aan vanwege een zeer slechtziende Atomist. 

Even bellen met Bruno teerde dat deze letters echt groot moeten zijn: één letter 
per scherm. En dat is een groter probleem dan het zo lijkt. 


In het bewuste artikel geeft Bruno ook al wat beginpunten die ik nu even zal 
doorlopen. 


Vergroot de karakters die opgeslagen zijn in ons operating system. Nu is dat 
technisch eigenlijk niet mogelijk omdat onze Atom karakterset niet in het 
operating systeem is opgeslagen maar in de 6847 video chip. Het idee is verder 
wel uit te voeren want voor de Atom in PC hebben we genoeg bitmapfonts die 
we kunnen uitvergroten. 


Met dit programma kunnen we een dergelijke letter afbeelden: 


10 PROGRAM VRESELIJK GROTE BITMAP LETTER 
20 REM (c) 1996 Atomic Development Studio 
30 
40 PRINT $12;?#E1=0 
50 FOR 1=0 TO 9 
60 B=#80;READ C 
70 FOR J=0 TO 7 
80 T=32HC&B<>0)*191,B=B/2 
90 PRINT STSTS$T 
100 NEXT} 
110 IF I<l5S THEN PRINT ' Figuur |: Vreselijk grote bitmap 
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120 NEXT 1 
130 


140 DATA #18,#3C,#66,#C3,#C3,#FF,#C3,HC3,HC3 HC 


150 END 


Het voordeel van deze methode is dat er per karakter weinig bytes nodig zijn 
voor de opslag. Daarentegen zijn sommige karakters erg onduidelijk. 


Het display met twintig elementen. In een tekening heeft Bruno al aangegeven 
wat hij daarmee bedoelt. Onderstaand programma en afbeelding laten u de 


werkelijkheid zien: 


10 PROGRAM SEGMENT 


20 

30 DATA 0,10,20,30 

40 DATA 0,30,20,50 

50 DATA 0,50,30,60 

60 DATA 30,50,60,60 
70 DATA 60,50,90,60 
80 DATA 90,50,120,60 
90 DATA 100,30,120,50 
100 DATA 100,10,120,30 
110 DATA 90,0,120,10 
120 DATA 60,0,90,10 
130 DATA 30,0,60,10 
140 DATA 0,0,30,10 
150 DATA 0,0,0,0 

160 DATA 0,0,0,0 

170 DATA 0,0,0,0 

180 DATA 0,0,0,0 

190 DATA 50,35,70,50 
200 DATA 50,10,70,25 
210 DATA 20,25,50,35 
220 DATA 70,25,100,35 
230 

240 CLEAR I 

250 REM PLOT A 





Figuur 2: letter A in scgmenuitvoering 


260 S=1;GOSUB p 
270 S=2;GOSUB p 

280 S=3;GOSUB p 

290 S=4;GOSUB p 

300 S=17;GOSUB p 

310 S=18;GOSUB p 

320 S=19;GOSUB p 

330 END 

340 

350pRESTORE (S*10+20) 
360 READ A,B‚C,D 

370 FOR L=B TO D 

380 MOVE A.L;DRAW C‚L 
390 NEXT L 

400 RETURN 
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Evenals voor de bitmap karakters geldt ook voor de segment geörienteerde 
tekens dat er weinig bytes per karakter nodig zijn. Aangezien we twintig 
segmenten hebben hebben we dus maximaal 20 bytes per segment nodig. 
Maar of het resultaat nu op een A lijkt … ? 


Alternatief 3: 

Het tekenen van een karakter. Dit programma tekent de letter in clear4. Hiermee 
is al een beter resultaat te krijgen. We zijn (zeker in deze grafische mode) niet 
meer gebonden aan grove beeldpunten. Met veel puzzel of denkwerk kan een 
duidelijke karakterset gemaakt worden. 


10 REM DRAWFONT 

20 CLEAR 4 

30 MOVE 0,0;DRAW 128,191;DRAW 255,0 
40 DRAW 225,0;DRAW 128,146 

50 DRAW 30,0;DRAW 0,0 

60 PAINT 10,1;PAENT 250,1 

70 MOVE 60,86;DRAW 180,86 

80 MOVE 60,66;DRAW 180,66 Figuur 3: letter getekend in cleará 
90 PAINT 128,76 

99 END 





Deze tekenset is al behoorlijk duidelijk. Alleen gaat het nog zeer veel werk 
kosten om een kompleet alfabet in elkaar te stomen. Daarna moet er nog een 
keuze gemaakt worden hoe zo'n karakter snel op het scherm komt te staan. Maar 
dat is voor latere zorg. 


De eigen fantasie. Uitgaande van de TrueType fonts gedachte (beschrijf een 
karakter als een serie “plotopdrachten” die dan makkelijk en duidelijk te 
vergroten of te verkleinen zijn zonder kwatiteitsverlies) heb ik in Paintbrush een 
Courier lettertype gekozen met een grootte van 48 pixels. Deze pixels worden 
genoteerd en omgezet in een Atom datafile. Omdat 48x48 pixels een opslag van 
288 bytes in beslag neemt, worden de karakters iets anders samengesteld. Ik 
noteer eerst het aantal kleurwisselingen in een rij en vervolgens het aantal pixels 
wit, zwart, en weer wit etc. 

Hierdoor wordt het aantal bytes per karakter beperkt. Dit ziet er dan als volgt uit: 
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10 PROGRAM TRUE TYPE BITMAP 
20 REM Testprogramma voor grote letters 
40 CLEAR 0;X=4 ;Y=40 
50 FOR R=l TO 31 
60 READ N 

65 C=l5 

70 FOR P=1 TO N 
80 READT 

100 FOR Z=l TO T 
110 PLOT C,X,Y 
120 X=X+1 

140 NEXT Z 

145 C=C:2 

150 NEXT P 

160 Y=Y-l;X=4 

170 NEXT R 

180 END 

190 
200 DATA 2,8,17 
210 DATA 2,7,19 
220 DATA 2,7,19 
230 DATA 2,8,20 
240 DATA 2,15,13 
250 DATA 2,15,13 
260 DATA 4,14,7,1,7 
270 DATA 4,14,7,1,7 
280 DATA 4,14,6,3,7 
290 DATA 4,13,7,3,7 
300 DATA 4,13,7,4,7 
310 DATA 4,12,7,5,7 
320 DATA 4,12,7,5,7 
330 DATA 4,12,7,6,7 
340 DATA 4,11,7,7,7 
350 DATA 4,11,6,9,7 
360 DATA 4,10,7,9,7 
370 DATA 2,10,24 
380 DATA 2,10,24 





Figuur 4: de TrueType conversie 


390 DATA 2,9,25 

400 DATA 2,9,26 

410 DATA 2,8,27 

420 DATA 4,8,6,16,6 
430 DATA 4,7,7,16,7 
440 DATA 4,7,6,17,7 
450 DATA 4,6,7,18,7 
460 DATA 4,6,6,19,7 
470 DATA 4,2,16,8,16 
480 DATA 4,1,18,6,18 
490 DATA 4,1,18,6,18 
500 DATA 4,2,16,8,16 
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Op zich best een duidelijke letter voor een clear scherm. Een nadeel van dit 
lettertype is dat het nog helemaal omgezet moet worden van windows bitmap 
naar Atom data. 


Het plaatsen van een dergelijke letter duurt op een 1 MHz Atom ca. 5 seconden. 
Niet echt een voorbeeld van snefheid. Maar daarbij moeten enkele 
kanttekeningen gemaakt worden. Deze gelden overigens ook voor het bitmap 
lettertype en het segmenttype. 


Twee andere, nog niet uitgewerkte, alternatieven zijn: 

- het echt tekenen van een TrueType font (hiervoor moeten dan de nodige 
routines voor geschreven worden). 

- met een tekenprogramma (bijvoorbeeld Macorn of Superdraw) grote letters 
tekenen, deze effectief coderen en op een clear4 scherm afbeelden. 


De letters worden nu in Basic geplot op het scherm. Maar het is net zo goed 
mogelijk om de schermen op te slaan; zeker in clear 0 is dat goed te doen. Per 
letter hebben we dan 512 bytes nodig. Aangezien we ook lege stukken hebben is 
dat mogelijk terug te brengen. 

Met behulp van een assembler routine kunnen we de betreffende letters dan snel 
naar het Atomscherm kopieren. 


Aangezien het hier handelt om een morse programma, waarbij de ontvangen en 
verzonden letters groot op het scherm moeten verschijnen, kunnen we de 
karakterset beperken tot 26 letters en 10 cijfers. Hiermee beperken we dan 
meteen de grote behoefte aan geheugen. Als we bijvoorbeeld de TrueType 
letters opslaan als schermpagina's van 512 bytes hebben we 18 kb geheugen 
nodig. Het afbeelden van een letter op het scherm kan dan eenvoudig met een 
COPY statement. Snel en doeltreffend. 


Voorlopig heeft Bruno een demodisk met bovenstaande vier lettertypen 
gekregen en zal hij samen met de betrokken persoon een keuze moeten maken 


wat een goede keuze is… 


Met vriendelijke groeten, 
Roland Leurs 


De programma's staan op Unicorn BBS in LETTERS.ZIP 
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Interrupts op de Atom-in-PC 


door Roland Leurs 


Interrupts zijn voor de Atom-in-PC altijd een punt van aandacht geweest. Al vanaf de 
eerste softwareversie is een voorziening getroffen om interrupts mogelijk te maken. 
Voor wat betreft hardware is er geen enkel probleem. Maar aan de softwarekant moet 
er toch nog wat geregeld worden. 


Het grote aandachtspunt zit in de communicatieroutines met de PC. Als er een 
commando uitgevoerd wordt mag er geen interrupt optreden die in de Interrupt 
Service Routine (ISR) gaat communiceren met de PC. 


Aanvankelijk werd dat opgelost door gebruik te maken van een semafoor. Met 
OSBYTE#0B kan aan het operating systeem gevraagd worden of communicatie met 
de PC toegestaan is. Zo ja, dan wordt de toegang voor andere programma's (meestal 
dus ÍSRs) tijdelijk geblokkeerd. Met OSBYTE#OA wordt de communicatie met de PC 
weer vrij gegeven. 


Op de volgende bladzijde ziet u de listing van EPOSKLOK. Dit is een (van de originele 
Atom) real-time-clock die de tijd rechts boven op het scherm laat zien, terwijl er een 
ander programma loopt. 


Als wij dit programma starten loopt EPOS/3 al snel vast en lijkt gegevensverlies heel 
normaal. 


IOREM REAL TIME CLOCK voor EPOS/3 
20REM Aangepast door Roland Leurs 
40 


SODIMKK6;F.A=0TO6;KKA=#FFF;N.,F.A=| TO2,P=#7C00;P.$21 
60f 

70:KKOSEIJSR#FFE6 

80STA#23D;JSR#FFE6,STA#23E,LDACH":" JSRAFFF4 
9OISRAFFE6,STA#23A 

1OOJSRH#FFE6,ST A#23B,,LDA@CH":",ISR#FFF4 
HOJSR#FFE6;STA#237 

120JSR#FFE6,STA#238 
130LDA@KK2%256;STAH204,LDA@KK2/256,STAH205;LDAG 13 
;STA#239 

140STA#23C;STA#23F;LDA(@#40,ST A#B80B;LDA@H#CO,ST Alt 
B80E 
150LDA@#50:STA#B804,LDA@#C3,STA#B807,STAHB805,CLI, 
RTS 
160:KK2LDA#B804,INCH236,LDA#236:CMP@40:BNEKK3,LDA@ 
0:STA#236 
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170INC#238;LDA#238;CMP@58,BNEKK3;LDA@48,ST A#238 

L8OINC#237.LDA#237;CMP@S4,BNEKK3,LDA@48,ST A#237,1 
NC#23B.LDA#23B 

190CMP@58,BNEKK3,LDA@48;STA#23B,INCH23A;LDA#23A; 
CMP@54.BNEKK3 

200LDA@48;STA#23 A;INCH#23E,LDA#23E,CMP@52,BNEKK4 

210LDA#23D;CMP@50;BNEKK3,LDA@48,STA#23E,ST A#23D 
220:KK4LDA#23E;CMP@58:BNEKK3,LDA@48,STA#23E;,INC#23D 

230:KK3LDA#235;,BEQKKS 

240LDA@HOB;JSR#FFC2;BCC KKS:\indien semafoor gezet, afdrukken overslaan 

250LDA@O.JSR#FFC3;LDA@#IE,JSR#FFC8JSRAFFCS,STA 
#234,JSR#FFCS,STA#233 

260LDA@31JSR#FFCS.LDA@T | JSRAFFC8;LDA@O,JSRAFFC 
8:\cursor linksboven 

270LDA#23D;JSR#FFC8,LDA#23E,ISR#FFC8,LDA@CH":".JSR 
#FFCS\uren 

280LDA#23A,JSR#FFC8,LDA#23B;JSRAFFC3;LDA@CH":".JSR# 
FFC8;\minuten 

290LDA#237.JSRHFFC8;LDA#238,JSR#FFCS,\seconden 

300LDA@3 1 JSRHFFC8;LDA#234,JSRAFFC8;LDA#233.JSR#FF 
C8:\cursor terug, 

HOLDA@HOA,JSRAFFC2 

320:KKSPLA;RTI 

330J,N,P.S6'Tijd *" 

340LINK KKO 

350E. 


Het probleem van miscommunicatie wordt in dit geval veroorzaakt vanwege het feit 
dat het afdrukken van een karakter op het scherm niet wordt afgeschermd door de 
semafoor. Denkfoutje tijdens het ontwerpen. Dus tijdens het sturen van een enkel byte 
kan een interrupt ook optreden en gaan communiceren met de PC. 

We moeten dus gebruik maken van een extra afscherming. Dit kan met onderstaand 
programmaatje: 


10 REM ZENDBYTE met interrupt support 

20 REM (c) Roland Leurs 1996 

30 

40 DIM li(S) 

50 FOR N=0 TO 5,II(N)=#FFF,NEXT N 

60 FOR N=0 TO Ì 

70 P=#7F00 

80[:110 LDA @U1%256;STA #21E,LDA @I11/256,STA #21F,RTS 
90 :II1 PHA;LDA #CF;STA 1E5;LDA @0,STA HCF 

100 PLA;STA #B810,PHA 

HO :1II2 LDA #B8ID,AND @#10:BEQ I12;LDA 1I5,STA #CF;PLA,RTS 
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120 :115 BRK 
130] 

140 NEXT N 
150 EXIT 


In regel 80 wordt de zendbyteroutine omgezet naar een verbeterde versie. In regel 90 
wordt de waarde van de semafoor opgevraagd en opgeslagen in de werkruimte. 
Vervolgens wordt de semafoor gezet (krijgt de waarde 0). Andere programma's 
kunnen nu niet meer communiceren met de PC. Dan wordt het byte verzonden. 
Tenslotte wordt de semafoor weer op zijn oude waarde hersteld. 


Als we dit programma laten lopen en vervolgens aanroepen met LINK }10 wordt de 
zendbyte routine in ROM vervangen door deze verbeterde versie. Als we de klok laten 
nu weer laten lopen zien we dat er geen bytes meer verloren gaan, en met wat mazzel 
gaat het systeem niet meer hangen. 

De laatste zin in de vorige alinea heeft al een negatieve ondertoon. De theorie rond de 
interrupts goed doordacht en waterdicht maar helaas, in de praktijk echter blijken 
diverse routines en programma's toch net ergens even niet helemaal volgens de regels 
te werken. Met als gevolg dat er af en toe een PC commando wordt uitgevoerd 
waarvoor geen exclusieve toegang geregeld is. Met als gevolg dat zelfs met deze 
laatste toevoeging de Atom toch na enige tijd vastloopt. 

Het werken met ISRs die communiceren met de PC blijft voorlopig een onstabiele 
zaak. Ofschoon het theoretisch goed mogelijk is blijkt het in praktijk van de nieuwe 
stabiele Atom een kaartenhuis te maken… 


Met vriendelijke groeten, 
Roland Leurs 


De programma's zijn te vinden op Unicorn BBS: EPOSKLOK.ZIP 
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ELECTRON AAN PC 


door Roland Leurs 


Geruime tijd geleden heb ik al eens beschreven hoe de Electron mogelijk aan de PC 
gekoppeld kan worden. Aan Electron zijde gebruikte ik dezelfde print als voor de 
koppeling tussen de Atom en de Electron. In de PC was een kleine I/O print geplaatst 
die toen nog het nadeel had dat de Electron de hele PC I/O bus kon blokkeren. Niet 
echt een succes dus. 

Als ik ervan uit ga dat de koppeling op die manier gemaakt kan worden hebben we: 


8 bits brede fuli duplex verbinding 

zeer snelle communicatie 

geen Plus! nodig 

niet standaard eprom beschikbaar op $SFDOO-FEFF in banken van 510 bytes 
extra hardware nodig voor Electron en PC 


Mijn bedoeling is om een koppeling te maken tussen de Electron en de PC die bijna 
niets mag kosten, door iedereen te maken is en toch een goede communicatiesnelheid 
oplevert. Het hoofddoel is om de PC als opslagmedium te gebruiken voor de Electron 
zonder diskdrive. 


Er zijn natuurlijk diverse mogelijkheden, die echter allen extra hardware nodig hebben, 
zoals een RS232 kaart aan de Electron of een parallelle I/O kaart voor de Electron 
waarbij een 4 bits brede verbinding gemaakt kan worden met de PC printerpoort. 


Uitgaande van een Electron met Plusl interface hebben we de volgende, beperkte I/O 
mogelijkheden: 


printerpoort met 8 lijnen uit, 1 strobe en 1 acknowledge 
joystickpoort met 2 digitale ingangen 

enkele analoge ingangen 

cartrigesiot voor eprom 


Met het standpunt van “eerst zien wat mogelijk is en daarna optimalizeren” heb ik een 
seriele verbinding gebouwd tussen de PC printerpoort enerzijds en een combinatie van 
Electron's printer- en joystickpoort anderzijds. Dit levert een redelijke verbinding op, 
met uitgebreide handshake en een datadoorvoersnelheid van circa 1,5 kb per seconde 
in mode 6. In mode 0 t/m 3 daalt dat tot ongeveer 1 kb per seconde. 


Om de PC als opslagmedium te gebruiken moet er ook een filing system geschreven 
worden en dat wordt opgeslagen in een sidewayrom. Uiteraard kan ook een 
up/download routine geschreven worden die vanaf cassette in het geheugen geladen 
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wordt. In dat geval is een sidewayrom niet nodig. De koppeling met de PC ziet er nu 
heel anders uit: 


seriele verbinding 

doorvoersnelheid maximaal 1,5 kb 

geen extra hardware voor de PC nodig 

voor koppeling is alleen een speciale kabel nodig 

indien een eprom gebruikt wordt is een sidewayram kaartje nodig 
Plus! is noodzakelijk 


De koppeling ziet er zo uit: 





De adressering ziet er zo uit: 


Data van PC naar Electron: (Formaat: Adres/bitnr) 
PC Data out 378/1 Electron Data in FC72/4 
PC Strobe out 378/2 Electron Strobe in FC72/5 
PC Acknowiedge in 379/7 Electron Acknowledge out  FC71/2 


Data van Electron naar PC: 


PC Data in 379/5 Electron Data out FC71/0 
PC Strobe in 379/7 Electron Strobe out FCT71/2 
PC Acknowledge out 378/1 Electron Acknowledge in _ FC72/4 


Door sommige lijnen dubbel te gebruiken wordt het aantal lijnen dat benodigd is voor 
de comminicatie beperkt tot vijf, inclusief ground. Een gevolg hiervan is dat de 
verbinding slechts half-duptex is. Dit is in de praktijk geen bezwaar want er wordt toch 
niet door elkaar heengekletst. 


De communicatie vindt bit voor bit plaats. Voor ieder bit wordt een volledige 
handshake gebruikt. Dit vertraagt de zaak enorm, maar is absoluut noodzakelijk. 
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Zonder deze handshake werkt de communicatie echt niet, programmeren met 
wachtlussen en andere timingtruukjes is onbetrouwbaar en zal uiteindelijk ook een 
vertraging opleveren. Daar komt nog bij dat de Electron zelf al verschiliende 
“sneiheden” heeft, in mode 6 is-tie sneller dan in mode O. Handshake moet! 


De routines voor de Electron zien er zo uit: 


zendbyte 


zendbit 


acknowledge 


no_acknowledge 


leesbyte 


leesbit 


no_data valid 


pha 
sta 
Ida 
sta 
lsr 
rol 
ora 
sta 
and 
sta 
lda 
and 
bne 
ìda 
sta 
Ida 
and 
beg 
dec 
bne 
pla 
rts 


Ida 
sta 
lda 
and 
bne 
lda 
asl 
asl 
asl 
asì 
ror 
lda 
sta 
lda 
and 
beg 
Ida 
sta 
dec 
bne 
lda 
rts 


; bewaar byte 
zp : zet byte op in werkruimte 
#8 ; laadt teller voor 8 bits 
zpt1l 
zp ; schuif databit in carry 
a z schuif carry in poortdata 
HSFE ’ overige bits hoog 
$FC71 ; zet data op printerpoort 
#SED ; geef data valid signaal 
SEC71 
$FC72 ; lees poort status 
#$10 : wacht op acknowledge 
acknowledge 
#SEFE ; haal data valid weg 
SEFC71 
$EC72 : wacht op acknowledge weg 
#$10 
no_acknowiedge 
zp+1 ; verlaag teller 
zendbit ‚+ spring als nog bits volgen 
: haal byte terug 
; einde routine 
#8 ; laadt teller voor 8 bits 
zpt1 
$FC72 ; wacht op data valid 
#520 
leesbit 
$FC12 } lees databit 
a # schuif databit naar carry 
a 
a 
a 
zp # schuif carry in resultaat 
#$FS : geef acknowledge 
SFC71 
$FC72 # wacht op data valid weg 
#520 
no_data valid 
HSEF ; haal acknowledge weg 
SECT1 
zp+1 ; verlaag teller 
leesbit 
zp : lees ontvangen byte 
s einde routine 
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Let er wel even op dat in bovenstaande listing, niet de originele Electron assembler 
gebruikt is, maar een cross-assembler. De hexadecimale getallen worden door de 
Electron assembier met & weergegeven. Maar het gaat hier voornamelijk om het 


principe. 


Het verhaal aan PC kant ziet er zo uit: 


initpoort 


initpoort 


zendbyte 


zend: 


wacht_ack: 


weg _ack: 


zendbyte 


leesbyte 


proc 
mov 
mov 
out 
ret 
endp 


proc 
push 
push 
push 
push 
mov 
shì 
mov 
mov 
mov 
or 
out 
and 
out 
inc 
in 
and 
jz 
dec 
mov 
out 
shr 
inc 
in 
and 
jnz 
dec 
loop 
pop 
pep 
pop 
pop 
ret 
endp 


proc 
push 
push 
push 


near 
dx,ppi_addr 
al,11111111b 
dx,al 


near 

ax 

bx 

ex 

dx 

bl‚al 

bx, 1 
dx,ppi_addr 
cx,8 
al,1411110ib 
al,bl 

dx,al 
al,11111011b 
dx,al 

dx 

al,dx 

al, 1006000005 
wacht _ack 
dax 
al,11illillb 
dx,al 

bx, 1 

dx 

al,da 
al,10000000b 
weg _ack 


near 
dx 
ex 
bx 


laadt poortadres 
alle lijnen hoog 


einde routine 


save registers 


zet byte in bl 
alle bits links 
laadt poortadres 
laadt teller 
clear databit 

zet databit 

zet data op poort 
geeft strobe 


laadt statusadres 
lees status 

test bit gelezen 
wacht als lijn hoog 
laadt poortadres 
data en strobe weg 


schuif volgende bit 


laadt statusadres 
wacht tot ack weg 


dx wordt poortadres 
volgende bit 
haal registers terug 


einde zendroutine 


save registers 
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push ax 
mov dx,‚ppi_addr ; laadt statusadres 
inc dx 
mov cx, B ; laadt teller 
data_ val: in al,dx ; lees status 
and al,00010000b #; test op geldige data 
jnz data val ‚ spring als geen data 
in al,dx + lees data 
shi al,1l ; databit in carry 
shl al,1 
shl al,1 
rer bl,1 ; schuif carry in bl 
dec dx ; adres printerpoort 
mov al,1111110ib ; geef ack 
out dx,al ; zet op printerpoort 
inc dx ; adres printerstatus 
no_data val: in al,dx : w8 op data valid weg 
and al,00010000b 
jz no data val 
dec dx + adres printerpoort 
mov al,11111111b ; haal ack weg 
out dx,al 
inc dx ; adres printerstatus 
loop data_val : herhaal volgende bit 
pop ax : haal ax terug 
mov al,bl : zet ontv. byte in al 
pop bx ; haal registers terug 
pop ex 
pop dx 
ret ; einde routine 
ieesbyte endp 


De mogelijkheden van deze koppeling heb ik al enigzins aangegeven. De PC kan 
gebruikt worden als opslagmedium voor de Electron. Hiertoe dient natuurlijk nog een 
vracht software geschreven te worden. De software aan PC zijde is al klaar, het 
programma ATOM.COM is aangepast voor de nieuwe communicatievorm en heet nu 
ELECTRON.COM. Dat programma gebruikt dezelfde commando's als ATOM.COM, 
u heeft dus al een complete handleiding. 


Voor de Electron ben ik reeds begonnen met PCDFS, PC Disk Filing System. Dit 
wordt een sidewayrom die zich geheel dient te gedragen volgens de regels van Acorn. 
Gelukkig zijn deze goed gedocumenteerd in de Advanced User Guide. 


Heeft u nog wat bedenkingen over de communicatiesneiheid? Dat valt best mee, 1.Skb 
per seconde. Aangezien de Electron 32kb ram heeft zal de grootst mogelijke file in 
circa 22 tot 30 seconden overgestuurd zijn. Niet echt schokkend snel, maar veel sneller 
en makkelijker dan cassettes. 


Nog meer vragen? U weet mij te bereiken! 
Rotard Leurs Fidonet: 2:285/226.9 Aconel: 77:8500/ 414 32 
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Page No. Sorted by Disk(ette} 
09/03/96 
DISK(ette) Repor 


Filename Ext Size Date Time Attr Floppy Name 





TRUECPU 0 04/09/96 13:44:12 D AN_96_01 
ATOMXMS 0 04/09/96 13:44:14 D AN_96_01 
ATOMX87 0 04/09/96 13:44:22 D AN_96_01 
ZOEK5 0 04/09/96 13:44:32 D AN_96_01 
KIENENS 4861 04/09/96 14:03:26 A AN_9601 
KIENEN4 1546 04/09/96 14:03:48 A AN ”96_01 
ZOEK RUN 4861 02/01/96 19:47:14 A AN 96 101 
FILEIDX 191764 10/30/95 21:02:00 A AN_96_01 
ATOMIDX 83536 02/08/96 20:41:04 A AN_96_01 
ZOEKS5 7156 02/16/96 21:09:46 A AN _96_01 
GONIO RUN 1291 02/03/96 15:07:20 A AN_96_01 
BREUK TXT 10419 02/16/96 20:12:28 A AN_96_01 
ATOM311 COM 15318 03/19/96 21:03:32 A AN_96_01 
INTOM COM 107 01/30/96 18:19:40 A AN_96_01 
ATEL COM 93 12/27/95 19:24:08 A AN_96_01 
INTOM ASM 2094 01/30/96 18:19:08 a AN 96 _01 
ATEL ASM 1839 12/27/95 19:24:02 A AN 96701 
XMS COM 1719 04/27/96 12:09:18 A AN_96_01 
XMS ASM 31730 01/03/96 19:19:24 A AN_96_01 
XMSDRV ASM 19593 02/27/96 17:36:28 A AN_96_01 
XMSDRV RUN 987 02/27/96 17:36:48 A AN_9601 
MACRO INC 4B03 12/09/95 13:08:34 A AN_96_01 
TRUE-CPU RUN 526 02/18/96 17:55:04 A AN_96_01 
TRUE-CPU SRC 1546 02/18/96 17:54:38 A AN_96_01 
EPOSKLOK 0 08/19/96 20:00:30 D AN_96 02 
LETTERS 0 08/19/96 20:15:42 D AN_96 02 
ELECTRON 0 08/19/96 20:30:12 D AN_96 02 
PAASDAG 1546 04/20/96 11:19:20 A AN_96_02 
ELECTRON COM 14538 07/01/96 20:21:34 A AN_96_02 
TIFONT RUN 2821 06/20/96 21:31:58 A AN_96_02 
BIGTEXT RUN 526 06/22/96 17:15:44 A AN 9602 
DRAWFONT _ RUN 271 06/16/96 13:00:44 A AN_96 02 
SEGMENT RUN 781 06/16/96 15:31:58 A AN_96_02 
EPOSKLOK RUN 1546 06/13/96 19:11:10 A AN_96_02 
ZENDBYTE _ RUN 526 08/19/96 20:12:22 A AN 96 02 
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LEDENLIJST, 1996 p- 31 
Overzicht leden Federatie Atom Clubs 
Nederland-Belgie. 
w. ARIAANS JAN v.SALMSTRAAT 61 6121 NE BORN 
JJ. BALTUS B. LUNENSCHOSZSIR.8 6137 PJ SITTARD OG-452,10.35 
H. BASTINGS TERMILESLAAN 113 6229 VT MAASTRICHT O43-361.54.95 
H.C.J.G. BERKENBOSCH J.v.RUYSDAELSTR. 17 5261 XD VUT O3 U 
J.K. BIEL D.DIJKHUISSTRAAT 56 7558 B HENGHO 074-277 00.82 
L. BLJNAGIE KROMEXAP 107 3848 DP HARDERWIJK 0341-43.08.04 
M.D. BRONS GERANIUMSIRAAT 40 8013 TL ZWOLLE 038-4217847 
D.P BRONSDIK PAMPUSSTRAAT 21 1435 LG RYSENKAUT 02973. 11.27 
H.G. DEKKER KAARDER 6 1625 TH HOORN 0229-23, 15.15 
H.T.G. _ DERKSEN BOLWERK 25 6811 JW ARGEM 0855 „5.85 
J. FERON P. BREUGELSTRAAT 43 6137 VW_ SITTARD OuG-451.88,47 
J. GEENE ZONBEKEIDE 6 5221 BR DEN BOSCI 073-631.20,80 
R. de HAAN RIJNSINGEL 439 2987 ST RIDDERKERK 018042 .51.60 
P. HARMENS RIJKSWEG NOORD 310 6136 Al SITTARD O6h51 45.06 
J.W HARTOG KEYENBERGSEWEG 60 6871 WK RENKUM 0317-31,37.57 
Á. HASSING HOUIMANSIRAAT 47 7002 KB DOETINCHEM 0314-3320. 29 
H.v.d. _ HEIJDEN H.v. RANDWIJKSIR. 34 2264 XK LEIDSCHENDAM & 070-327.67.26 
E. HOUNJET KEERDD 68 6171 W_SIEIN 046-4332666 
w‚ KAUIZ GRADALAND 137 2591 HE DEN HAAG 
J. KLEIJN HINZE 3 2641 VT PLJNACKER 
G.W.G. KROES TINA.B.BAKKERLAAN 117-761 3582 XP UIREOT 
J.M. POSTBUS 45632 2504 BA DEN HAAG 
AM. KRUKKELAND GR.VAN PRINSTERENSIR 13 7391 KS TWELLO 0571-27.42.17 
P. van KUIK ZUIDEINDE 54 a 1843 JP GROOT-SCERMER 0299-67.19.02 
E. LAM LEM. DUESTRAAT 57 2801 EP GOUDA 
E‚J.v.d. LEEST R.VOSSIRMT 125 5612 RV EINDHOVEN 040-243. 29.81 
J. LERNOUT PARKLAAN 4 B-2540 HWE 00323455347J 
RGM. LERS HOOGE HOEVEN 62 4191 MN GEÏDERMALSEN 0945-57.29,70 
M.van LEUVEN PARCIVALSIRAAT 14 B-2580 St.KATEL.WAVER 003215315082 
A. v/d MER HOUIDUIFSTRAAT 43 2623 ER DELFT 015-262. 35.68 
EL. MEERLOO DISTELVINK 56 7827 DC EMMEN 
W.van NORDEN AURIOLLAAN 3 3527 ER UTRECHT 090-294 46.85 
K. van JULIANASTRAAT 33 5482 AK SCHIJNDEL 073-547 ,43.23 
A. OTTEN J.A. de GRAVELAAN 17 2381 TA ZOETERWOUDE 071-580. 19.29 
R. PORCELIJN HAGESTRAAT 16 2011 CV HAARLEM 023-536.37.88 
c. RUIKOWSKI Mer. BIKXXSIR.8 6121 KV BORN OhG-452,30. 12 
MH. RUTIEN BERKENLAAN 24 3737 RN_ GROENEKAN O346-21.34.95 
J.P.van SPIJKER de BRUIJNESIRAAT 76 2597 RH DEN HAAG 
't 
H. SIRUMPHLER KORTENAERLAAN 4 6881 ET VELP O26-JEA. 74.06 
J. TEULINGS KAREL DOCRMANSTR. 54 5224 GL BOS 073-621 .28.88 
J.A. THOLENS HANOIDREEF 206 3564 KS _UIRECHT 
B. TOSSAINT FATIMAPLEIN 85 621% Tw MAASTRICHT 043-343. 16.75 
W TRUIJEN HEPPERSTEENVEG 50 B-3680 MAASEIK 093289564792 
T.H. WAAIJER H.van BOELJENLAAN 66 2273 DC VOORBURG 070-3862504 
P.J. de WAARD DORPSTRAAT 125 5504 HD VELDHOVEN 040-253, 34,27 
H. WILLEMARS LIVINGSTUNELAAN 7 3526 HA UTRECHT 030-289. 06.09 
C.de WIT MIJIDERSCHANS 24 HI2 XN NIEUWEGEIN 
J.A. de WITTE SCHUINE HONDSBLAAN 58 1852 HR HETLOO 072-5334734 
PAJ. WKE DUKAATSTRAAT 12 1827 GP ALKMAAR 072-562. 11.35 
E.E.P.A. WORDRAGEN SCHEEDAMSEWEG BENEDEN 028 BM ROTTERDAM 010-450.94.81 
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REGIO- ADRESSEN . 


Regio NOORD-HOLLAND : 
P‚v.Kuik, Zuideinde 54-a, 1843 JP Groot Schermer. 
tel. 0299-67,19.02 


Regio DEN HAAG +ARNHEM 
Th.Waayer, H.v.Boeijenlaan 66, 2273 DC Voorburg. 
tel. 070-386.25.04 


Regio BRABANT-OOST + ZEELAND 
J.Teulings, K.Doormansstraat 54, 5224 GL Den Bosch. 
tel. 073-621.28.88 


Regio LIMBURG + BELGIE EN OOST/NOORD NEDERLAND 
C.Rutkowski, Mgr.Buckstr.8 6121 KV Born. 
tel. 046-486.01.36 


REGIO-MEDEDELINGEN . 





Ì. REGIO BRABANT-OOST 
Bijeenkomsten op het bekende adres : 
Adolf van Cortenbachstraat 92, Eindhoven, tel. 040-212.32.31 
Aanvang 13,30.u 


2. REGIO LIMBURG-BELGIE 
Clubavonden in “Oos Kaar",Geldersestraat 43, t. 046-432.13.78 
op de le vrijdag van de maand. 


3. REGIO DEN HAAG 
Alles op het nieuwe adres : Theo Waayer 
Hendrik v. Boeijenlaan 66, 2273 DC Voorburg,t. 070-386.25.04 


1. REGIO ARNHEM e.o. 
Geplande bijeenkomsten Acorn Atom Club Regio Arnhem: 
Ten Huize van Henri Derksen, Bolwerk 25, 6811 JW ARNHEM 
op de derde woensdag van de maand. 
Telefoon: 085-445.54.85; UniCorn BBS: 085-442.55.06 XXXX/XXXX 
BPS 8N3 


